home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00083.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  405 b   |  15 lines
  1. global glineoffset, gSelLine, gColor
  2.  
  3. on mouseDown
  4.   set mouseloc to (getAt(clickLoc(), 2) - 95) / 12
  5.   if mouseloc < 1 then
  6.     exit
  7.   end if
  8.   if line mouseloc of the text of cast 34 <> EMPTY then
  9.     set gSelLine to mouseloc + glineoffset
  10.     set the foreColor of cast 34 to getAt(gColor, 4)
  11.     set the foreColor of line mouseloc of cast 34 to getAt(gColor, 5)
  12.     drawkeywords(gSelLine)
  13.   end if
  14. end
  15.